SOME CHARTS

library("tidyverse")
## ── Attaching packages ── tidyverse 1.2.1 ──
## ✔ ggplot2 3.1.0     ✔ purrr   0.3.0
## ✔ tibble  2.0.1     ✔ dplyr   0.7.8
## ✔ tidyr   0.8.2     ✔ stringr 1.3.1
## ✔ readr   1.3.1     ✔ forcats 0.3.0
## ── Conflicts ───── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
source("audience-knowledge.R", local = TRUE)
## Parsed with column specification:
## cols(
##   short.name = col_character(),
##   type = col_character(),
##   knowledge.type = col_character(),
##   question = col_character(),
##   response = col_character()
## )
gg_plot <- audience_knowledge %>%
  ggplot(aes(x = question,
             y = response)) +
  geom_col() +
  coord_flip()

library("plotly")
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout
gg_plot %>%
  ggplotly()
library("highcharter")
## Highcharts (www.highcharts.com) is a Highsoft software product which is
## not free for commercial and Governmental use
audience_knowledge %>%
  hchart(
    type = "bar",
    hcaes(
      x = question,
      y = response,
      group = knowledge.type
    )
  )